home *** CD-ROM | disk | FTP | other *** search
- .K ""
- echo "This script will unpack the following lharc archives:"
- echo ""
- echo " CheckBook.lzh => CAv2.0:"
- echo ""
-
- ask "Do you have a blank disk ready?"
- if not WARN
- echo "Try again when you do ..."
- echo "All Done. Click close gadget to get rid of window."
- endcli
- endif
-
- ask "Is floppy drive df1: free?"
- if not WARN
- echo "You will need to do the unpacking yourself."
- echo "All Done. Click close gadget to get rid of window."
- endcli
- endif
-
- echo "Formatting and unpacking disk."
-
- sys:system/format drive df1: name CAv2.0 noicons
- :c/lharc -x -a -m x CheckBook.lzh CAv2.0:
-
- echo "All Done. Click close gadget to get rid of window."
- endcli
-